home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / mcf4amirc / rexx / mcf_encode.amirx < prev    next >
Text File  |  1996-09-17  |  1KB  |  11 lines
  1. /* MCF_Encode.AMIRX
  2. // $VER: MCF_Encode.AMIRX 4.5 (01.09.96) (MCF Extra Command)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. // Please mail any bug reports/comments to the above address with a subject
  5. \\ header of MCF.AMIRX.
  6. //
  7. \\ ** What to do with this file?
  8. // Put this script in REXX:
  9. \\  Add the following Alias    X /Rx MCF_Encode %p
  10. */
  11. ;parse arg idata;Echar='©';Amode=1;Emode=10;mode="";dest="";if 1=pos('-',idata) then;do;parse value idata with xmode idata;Emode=substr(xmode,2);if datatype(Emode) ~='NUM' then exit;Echar='®';Amode=2;mode=Emode;idata=strip(idata);end;if 1=pos('/',idata) then;do;parse value idata with dest idata;dest=substr(dest,2);end;xdata="";edata=idata;do ecnt=1 by 1 until idata="";parse value idata with xdat1 xdat2 idata;xdata=xdata xdat1 reverse(xdat2);end;xdata=strip(xdata,b);if Emode=10 then xdata=upper(xdata);ALine.Amode=getclip("ALINE."Amode);ELine.Emode=getclip("ELINE."Emode);odata=Echar||mode||reverse(translate(xdata,ELine.Emode,ALine.Amode));elit='02'x|| dest||':'||'02'x;if dest="" then;do;options results;getchannel;curchan=result;dest=curchan;elit="";end;if upper(dest)='TOPIC' then;"Say /topic" odata;else "RAW PRIVMSG "dest" :"odata;"echo P="d2c(27)"««Encrypt»" elit edata;exit